FY25 Awarded Grants

Total Cost of Funded Grants So Far in 2025

ggplot(df) +
  geom_bar(aes(y = reorder(agency, total.cost), x = total.cost), position = "stack", stat = "identity") +
  ylab("Agency") + 
  xlim(0, max(df$total.cost)*1.1) +
  xlab("Total Costs of Funded Grants") +
  geom_text(aes(y = reorder(agency, total.cost), x = total.cost, label = total.cost.dollars),
            hjust = -0.2, col = "#0b6fa1") #490A3D

Total Number of Funded Grants So Far in 2025

ggplot(df) +
  geom_bar(aes(y=reorder(agency, total.number), x=total.number), position="stack", stat="identity") +
  ylab("Agency") + 
  xlim(0, max(df$total.number)*1.1) +
  xlab("Total Number of Funded Grants") +
  geom_text(aes(y = reorder(agency, total.number), x = total.number, label = total.number),
            hjust = -0.2, col = "#0b6fa1")

Frequent Words in Project Titles of Awarded Grants in 2025

title = data$Project.Title
title = gsub("\\s*\\([^\\)]+\\)", "", title)
title = gsub('[0-9]+', '', title)

title_text = Corpus(VectorSource(title))
title_text_clean = tm_map(title_text, removePunctuation)
title_text_clean = tm_map(title_text_clean, content_transformer(tolower))
title_text_clean = tm_map(title_text_clean, removeNumbers)
title_text_clean = tm_map(title_text_clean, stripWhitespace)
title_text_clean = tm_map(title_text_clean, removeWords, stopwords('english'))

par(bg = "black")
cp = brewer.pal(7, "YlOrRd")
wordcloud(title_text_clean, scale = c(2, 1), min.freq = 150, colors = cp)#rainbow(30))

title_df = data_frame(Text = title)

freq_words = title_df %>%
  unnest_tokens(output = word, input = Text)

freq_words = freq_words %>%
  anti_join(stop_words)

freq_wordcounts = freq_words %>% count(word, sort = TRUE)

freq_wordcounts %>% 
  filter(n >= 50) %>% 
  mutate(word = reorder(word, n)) %>% 
  ggplot(aes(word, n)) + 
  geom_col() +
  coord_flip() +
  labs(x = "Word \n", y = "\n Count ", title = "Frequent Words In Title \n") +
  geom_text(aes(label = n), hjust = 1.2, colour = "white", fontface = "bold") +
  theme(plot.title = element_text(hjust = 0.5), 
        axis.title.x = element_text(face="bold", colour="darkblue", size = 12),
        axis.title.y = element_text(face="bold", colour="darkblue", size = 12))

Top 30 Frequent Words in 2025 by Agency

NCI

NIAID

NHLBI

NINDS

NIGMS

NIDDK

NIA

NIMH

NICHD

NIEHS

NEI

NIDA

NIDCD

NIAMS

NIMHD

NIBIB

NIDCR

NIAAA

OD

NHGRI

FIC

NCCIH

NINR

NLM

NCATS